# Unit Test functions for import data
# 
# Author: guochun
###############################################################################
library(RUnit)
source("./source_all.R")

abspwd=paste(PATH,"/unit tests",sep="")

#test the mydata function
runTestFile(paste(abspwd,"/example data/test_mydata.R",sep=""))

#test the get_marks function
runTestFile(paste(abspwd,"/utilits/test_get_marks.R",sep=""))

#test the auto_lapply function
runTestFile(paste(abspwd,"/utilits/test_auto_lapply.R",sep=""))

#test the auto_tapply function
runTestFile(paste(abspwd,"/utilits/test_auto_tapply.R",sep=""))

#test the auto_mark_apply function
runTestFile(paste(abspwd,"/utilits/test_auto_mark_apply.R",sep=""))

#test the mark correlation function
runTestFile(paste(abspwd,"/summary statistics/test_mark correlation functions.R",sep=""))

#test the parital_rthin function
runTestFile(paste(abspwd,"/simulations/test_partial_rthin.R",sep=""))

#test the get_param function
runTestFile(paste(abspwd,"/utilits/test_get_params.R",sep=""))

#test the auto_modeling function
runTestFile(paste(abspwd,"/modeling/test_auto_modeling.R",sep=""))

#test the auto_logistic function
runTestFile(paste(abspwd,"/modeling/test_auto_logistic.R",sep=""))

